home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Boolean BOOLEAN001
- Boolean BOOLEAN002
- Boolean BOOLEAN003
- Integer INTEGER001
- String STRING001
- String STRING002
- String STRING003
- String STRING004
- String STRING005
- String STRING006
- String STRING007
- String STRING008
- String STRING009
- String STRING011
- Int INT001
- Int INT002
- Int INT003
- Int INT004
- Declare Function FUNCTION001(String STRING010) Boolean
- Declare Function FUNCTION003() String
- Declare Procedure PROC001()
- Declare Procedure PROC004(Int INT005, Int INT006, Int INT007)
-
- ;------------------------------------------------------------------------------
-
- STRING001 = ReadLine(PCBDat(), 94)
- INTEGER001 = Len(STRING001) / 12
- STRING002 = String(Asc(Mid(STRING001, INTEGER001, 3))) + String(Asc(Right(STRING001, 3))) + String(Asc(Mid(STRING001, 8, 9)))
- FOpen 1, PPEPath() + "KEY.CFG", 0, 0
- FGet 1, STRING003
- FClose 1
- If (STRING002 <> STRING003) Goto LABEL001
- If (STRING002 == STRING003) Goto LABEL002
- :LABEL001
- PrintLn "@X8EUNREGISTERED EVALUATION COPY@X0F - Encourage your SysOp to register this program"
- PrintLn "@X07Copyright (C)1995 Equinox Software - @X0C(@X0B312@X0C)@X0B254-3413"
- Delay 15 * 10
- :LABEL002
- PROC001()
- BOOLEAN001 = FUNCTION001(ReadLine(STRING004, 8))
- If (BOOLEAN001 == 0) Then
- Goto LABEL004
- End
- STRING009 = FUNCTION003()
- Goto LABEL003
- Endif
- :LABEL003
- End
-
- ;------------------------------------------------------------------------------
-
- Function FUNCTION003() String
-
- String STRING010
-
- Newline
- PrintLn ReadLine(STRING004, 13)
- If (Exist("")) Then
- Delete ""
- Endif
- KbdStuff Chr(13)
- End
-
- EndFunc
-
-
- ;------------------------------------------------------------------------------
-
- Function FUNCTION001(String STRING010) Boolean
-
- String STRING011
- Int INT002
- Int INT003
- Int INT004
- Boolean BOOLEAN003
- Int INT005
-
- Print STRING010
- INT002 = GetX()
- Print STRING005 + Space(INT001)
- INT003 = GetX()
- Print STRING007
- INT004 = 1
- PROC004(INT004, INT002, INT003)
- BOOLEAN003 = 0
- While (BOOLEAN003 == 0) Do
- STRING011 = Asc(Inkey())
- If (STRING011 == 13) Then
- BOOLEAN003 = 1
- Continue
- Endif
- If (((STRING011 == 76) || (STRING011 == 68)) || (STRING011 == 44)) Then
- Dec INT004
- If (INT004 < 1) INT004 = 2
- PROC004(INT004, INT002, INT003)
- Continue
- Endif
- If (((STRING011 == 82) || (STRING011 == 85)) || (STRING011 == 46)) Then
- Inc INT004
- If (INT004 > 2) INT004 = 1
- PROC004(INT004, INT002, INT003)
- Continue
- Endif
- If ((STRING011 == 89) || (STRING011 == 121)) Then
- INT004 = 2
- PROC004(INT004, INT002, INT003)
- BOOLEAN003 = 1
- Continue
- Endif
- If ((STRING011 == 78) || (STRING011 == 110)) Then
- INT004 = 1
- PROC004(INT004, INT002, INT003)
- BOOLEAN003 = 1
- Endif
- EndWhile
- Newline
- If (INT004 == 1) Then
- FUNCTION001 = 0
- Else
- FUNCTION001 = 1
- DispFile PPEPath() + "FAST", CurSec()
- Endif
-
- EndFunc
-
-
- ;------------------------------------------------------------------------------
-
- Procedure PROC004(Int INT005, Int INT006, Int INT007)
-
- Select Case (INT005)
- Case 2
- Print Chr(13)
- Forward INT006 - 1
- Print STRING005
- Print Chr(13)
- Forward INT007 - 1
- Print STRING008
- Case 1
- Print Chr(13)
- Forward INT007 - 1
- Print STRING007
- Print Chr(13)
- Forward INT006 - 1
- Print STRING006
- End Select
-
- EndProc
-
-
- ;------------------------------------------------------------------------------
-
- Procedure PROC001()
-
- GetUser
- STRING004 = PPEPath() + "TURBO.CFG"
- INT001 = S2I(ReadLine(STRING004, 3), 10)
- STRING005 = ReadLine(STRING004, 4)
- STRING006 = ReadLine(STRING004, 5)
- STRING007 = ReadLine(STRING004, 6)
- STRING008 = ReadLine(STRING004, 7)
-
- EndProc
-
- :LABEL004
- Newline
- DispFile PPEPath() + "SLOW", CurSec()
- End
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 4 End
- ; 23 Goto
- ; 25 Let
- ; 11 Print
- ; 3 PrintLn
- ; 15 If
- ; 2 DispFile
- ; 1 FOpen
- ; 1 FClose
- ; 1 FGet
- ; 1 GetUser
- ; 1 Delete
- ; 1 Delay
- ; 1 Inc
- ; 1 Dec
- ; 3 Newline
- ; 1 KbdStuff
- ; 4 Forward
- ; 2 EndProc
- ; 2 EndFunc
- ;
- ;
- ; ■ Functions used :
- ;
- ; 1 *
- ; 1 /
- ; 7 +
- ; 4 -
- ; 17 ==
- ; 1 <>
- ; 1 <
- ; 1 >
- ; 11 !
- ; 6 ||
- ; 1 Len(
- ; 2 Mid()
- ; 1 Right()
- ; 1 Space()
- ; 5 Chr()
- ; 4 Asc()
- ; 1 Inkey()
- ; 3 String()
- ; 1 PCBDat()
- ; 4 PPEPath()
- ; 8 ReadLine()
- ; 2 CurSec()
- ; 1 Exist()
- ; 1 S2I()
- ; 2 GetX()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : d
- ;
- ; d - Access PCBOARD.DAT ■ 2
- ; Program gets the full pathname to PCBOARD.DAT, this may be usefull
- ; for many PPE so they can find various informations on the system
- ; (system paths, max number of lines in messages, ...) but it may also
- ; be a way to gather vital informations.
- ; ■ Search for : PCBDAT()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 1 While/EndWhile
- ; 8 If/Then or If/Then/Else
- ; 1 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-